@@ -1,5 +1,10 @@
Revision history for Git::CPAN::Patch
+0.6.0 2011-03-06 10:50:56 America/Montreal
+ * don't blindly import perl if the module is core, but rather
+ suggest to use the Perl git repository instead.
+ Thanks to Rafael Kitover for the bug report (RT#66416)
+
0.5.0 2011-03-05 12:32:08 America/Montreal
* use Git::Repository instead of Git for the git interactions.
Thanks to brian d foy and Philippe Bruhat for the patches.
@@ -1,6 +1,6 @@
package Git::CPAN::Patch::Import;
BEGIN {
- $Git::CPAN::Patch::Import::VERSION = '0.5.0';
+ $Git::CPAN::Patch::Import::VERSION = '0.6.0';
}
use 5.10.0;
@@ -35,6 +35,7 @@ use BackPAN::Index;
}
our $BackPAN_URL = "http://backpan.perl.org/";
+our $PERL_GIT_URL = 'git://perl5.git.perl.org/perl.git';
sub backpan_index {
state $backpan = do {
@@ -364,6 +365,13 @@ sub main {
my $name = $module_obj->name;
my $version = $module_obj->version;
my $dist = $module_obj->package;
+
+ if ( $module_obj->package_name eq 'perl' ) {
+ say "$name is a core modules, ",
+ "clone perl from $PERL_GIT_URL instead.";
+ exit;
+ }
+
my $dist_name = join("-", $module_obj->package_name, $module_obj->package_version);
my $prettyname = $name . ( " ($module)" x ( $name ne $module ) );
@@ -546,7 +554,7 @@ Git::CPAN::Patch::Import - The meat of git-cpan-import
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 DESCRIPTION
@@ -1,6 +1,6 @@
package Git::CPAN::Patch;
BEGIN {
- $Git::CPAN::Patch::VERSION = '0.5.0';
+ $Git::CPAN::Patch::VERSION = '0.6.0';
}
use strict;
@@ -18,7 +18,7 @@ Git::CPAN::Patch - Patch CPAN modules using Git
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -38,7 +38,7 @@ __END__
=head1 VERSION
-version 0.5.0
+version 0.6.0
git-backpan-init - Initialize a repository for a CPAN module with full history
from the backpan.
@@ -32,7 +32,7 @@ __END__
=head1 VERSION
-version 0.5.0
+version 0.6.0
git-cpan-format-patch - Format patches using C<cpan/master> as the origin
reference
@@ -45,7 +45,7 @@ git-cpan-import - Import a module into a git repository
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -41,7 +41,7 @@ git-cpan-init - Create a git repository for a CPAN module
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -39,7 +39,7 @@ git-cpan-last-version - Report the last imported version
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -41,7 +41,7 @@ git-cpan-send-email - use C<git-send-email> to submit patches to CPAN RT
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -46,7 +46,7 @@ git-cpan-sendpatch - create patch files and submit them to RT
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -45,7 +45,7 @@ git-cpan-squash - Combine multiple commits into one patch
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS
@@ -42,7 +42,7 @@ __END__
=head1 VERSION
-version 0.5.0
+version 0.6.0
git-cpan-update - Import the latest version of a module and rebase the current
branch
@@ -39,7 +39,7 @@ git-cpan-last-version - Report the managed module
=head1 VERSION
-version 0.5.0
+version 0.6.0
=head1 SYNOPSIS